home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_45_TOC non-shared handlers.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  1.1 KB  |  30 lines
  1. global currCDROMText, gTextHold, auxLocPList, pictureSp1, videoBorderSp1, videoSp1, gSep, gTocCastNum, gDbICastNum, indexType, toc_dbiCastLib
  2.  
  3. on setupCDROM
  4.   cursor(4)
  5.   set indexType to #toc
  6.   updateStage()
  7.   put EMPTY before line 1 of field "table of contents" of castLib toc_dbiCastLib
  8.   put EMPTY before line 1 of field "scroll text field" of castLib toc_dbiCastLib
  9.   go("TOC")
  10.   set auxLocPList to [:]
  11.   set auxLocPList to ["pic1": point(250, 156), "pic2": point(250, 269), "cap1": point(188, 230), "cap1": point(188, 343), "vidBorder1": point(250, 148), "video1": point(250, 140), "vidBorder2": point(250, 262), "video2": point(250, 254)]
  12.   set pictureSp1 to 41
  13.   set videoBorderSp1 to 42
  14.   set videoSp1 to 43
  15.   set gTocCastNum to the number of member "table of contents" of castLib toc_dbiCastLib
  16.   set gDbICastNum to the number of member "database index text" of castLib toc_dbiCastLib
  17.   setFingerCursor(#on, [40, 46, 47, 48])
  18.   cursor(-1)
  19. end
  20.  
  21. on copyText
  22.   set gTextHold to char the selStart + 1 to the selEnd of field currCDROMText
  23. end
  24.  
  25. on SelectAll
  26.   set selStart to 1
  27.   set selEnd to the number of chars in field currCDROMText
  28.   hilite field currCDROMText
  29. end
  30.